home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / EModules / gms / files / objects.e < prev    next >
Encoding:
Text File  |  1998-10-23  |  879 b   |  42 lines
  1.  
  2. /*
  3. **  $VER: objects.e
  4. **
  5. **  Object definitions.
  6. **
  7. **  (C) Copyright 1996-1998 DreamWorld Productions.
  8. **      All Rights Reserved.
  9. */
  10.  
  11. OPT MODULE
  12. OPT EXPORT
  13. OPT PREPROCESS
  14.  
  15. MODULE 'gms/dpkernel/dpkernel','gms/system/register','gms/files/segments'
  16.  
  17. /****************************************************************************
  18. ** Object entries.
  19. */
  20.  
  21. OBJECT objectentry      /* Entry stucture for GetObjectList() */
  22.   name   :PTR TO CHAR   /* Pointer to the name, may be NULL */
  23.   object :LONG          /* Object is returned here */
  24. ENDOBJECT
  25.  
  26. /*****************************************************************************
  27. ** Object-File.
  28. */
  29.  
  30. CONST VER_OBJECTFILE  = 2,
  31.       TAGS_OBJECTFILE = $FFFB0000 OR ID_OBJECTFILE
  32.  
  33. OBJECT objectfile
  34.   head[1]  :ARRAY OF head
  35.   source   :LONG
  36.   config   :LONG
  37. ENDOBJECT
  38.  
  39. CONST OBJA_Source = 12 OR TAPTR,
  40.       OBJA_Config = 16 OR TAPTR
  41.  
  42.